home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib09.dsk / GRAPHICS GRAB BAG.bas < prev    next >
BASIC Source File  |  2023-02-26  |  907b  |  26 lines
  1. 3  FOR J = 1 TO 5
  2. 4  FOR X = 1 TO 10  STEP 3
  3. 5  HGR2 : HCOLOR= 3
  4. 6 I = 1
  5. 10  ON J GOSUB 1000,2000,3000,4000,5000
  6. 11  ON J GOSUB 10000,11000,12000,13000,14000
  7. 12  HPLOT A,B
  8. 20  FOR I = 1 TO 360 *X  STEP X
  9. 30  ON J GOSUB 1000,2000,3000,4000,5000
  10. 40  ON J GOSUB 10000,11000,12000,13000,14000
  11. 50  HPLOT  TO A,B
  12. 60  NEXT 
  13. 63  FOR I = 1 TO 40:S =  PEEK( -16336): NEXT : INPUT A$
  14. 65  NEXT 
  15. 70  NEXT J
  16. 75  TEXT : END 
  17. 1000 A =  SIN(I *3) *100 +150:A =  ABS(A): RETURN 
  18. 2000 A =  SIN(I/3) *100 +150:A =  ABS(A): RETURN 
  19. 3000 A =  SIN(I/2) *100 +150:A =  ABS(A): RETURN 
  20. 4000 A =  COS(I *3) *100 +150:A =  ABS(A): RETURN 
  21. 5000 A =  SIN(I) *100 +150:A =  ABS(A): RETURN 
  22. 10000 B =  COS(I) *90 +92:B =  ABS(B): RETURN 
  23. 11000 B =  COS(I/3) *90 +92:B =  ABS(B): RETURN 
  24. 12000 B =  COS(I/3) *90 +92:B =  ABS(B): RETURN 
  25. 13000 B =  COS(I) *90 +92:B =  ABS(B): RETURN 
  26. 14000 B =  SIN( COS(I *6)) *90 +92:B =  ABS(B): RETURN